#lang planet neil/sicp
(define (pa hang li)
  (cond
    ((= hang 1) 1)
    ((= li 1) 1)
    ((= hang li) 1)
    (else (+ (pa (- hang 1) li) (pa (- hang 1) (- li 1))))))